home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 076-100 / disk_081 / icon / narrate.icn < prev    next >
Text File  |  1992-05-06  |  647b  |  28 lines
  1. # This is an example of how to use Narrate and Translate
  2. #
  3. # SDB
  4. #
  5. # NOTE:  It is wise to use SET MAXMEM=XXXX, where XXXX allows enough memory
  6. #     for the translator and narrator to be loaded, or else this program
  7. #     will possibly fail.
  8. #
  9.  
  10. procedure main()
  11.     LeftSide(Translate("Hello, this is from the left speaker"))
  12.     RightSide(Translate("Hello, this is from the right speaker"))
  13.     BothSides(Translate("And this is from both sides"))
  14. end
  15.  
  16. procedure LeftSide(s)
  17.     Narrate(s, , , , "male", , , "left")
  18. end
  19.  
  20. procedure RightSide(s)
  21.     Narrate(s, , , , "female", , , "right")
  22. end
  23.  
  24. procedure BothSides(s)
  25.     Narrate(s, , ,"robotic" , "male", , , "both")
  26. end
  27.  
  28.